﻿Public Class FormKineticMeasurementUpdateHistoryList
    Dim objLxjcInfo As New clsLxjcInfo
    Private _sys_id As String
    Public Property Sys_id As String
        Get
            Return _sys_id
        End Get
        Set(value As String)
            _sys_id = value
        End Set
    End Property

    Private Sub FormKineticMeasurementUpdateHistoryList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dt As DataTable = objLxjcInfo.selectDistinctDetailsBySysid(_sys_id)
        dgv.AutoGenerateColumns = False
        dgv.DataSource = dt
    End Sub

    Private Sub dgv_SelectionChanged(sender As Object, e As EventArgs) Handles dgv.SelectionChanged
        If dgv.SelectedRows.Count > 0 Then
            Dim dt As DataTable = objLxjcInfo.selectDetailsBySysid(dgv.SelectedRows(0).Cells("Colid").Value.ToString())
            dgvDetails.AutoGenerateColumns = False
            dgvDetails.DataSource = dt
        End If
    End Sub

End Class